www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Dialog/SelectPic.asp
<!--#include file="../../Conn.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<%IF Session("Admin")="" and Session("AdminGroup")="" and Session("AdminSession")<>true Then
Response.write "<script>top.location.href='../Admin_Login.asp'</script>"
Response.end()
END IF
Dim ChannelID, CurrPath, ShowVirtualPath
Dim WebiInstallDir
WebiInstallDir = GetConfig("WebiInstallDir")
CurrPath = Request("CurrPath")
CurrPath = WebiInstallDir & CurrPath
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<script language=""JavaScript"" type=""text/javascript"" src=""../YWNT_TMS_inc/YWNT_TMS_Common.js""></script>"
Response.Write "<title>选择文件</title>"
Response.Write "<style type=""text/css"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write ".PreviewStyle {" & vbCrLf
Response.Write " border: 2px outset #CCCCCC;"
Response.Write "}"
Response.Write ".ImgOver {"
Response.Write " cursor: default;"
Response.Write " border-top-width: 1px;"
Response.Write " border-right-width: 1px;"
Response.Write " border-bottom-width: 1px;"
Response.Write " border-left-width: 1px;"
Response.Write " border-top-style: solid;"
Response.Write " border-right-style: solid;"
Response.Write " border-bottom-style: solid;"
Response.Write " border-left-style: solid;"
Response.Write " border-top-color: #FFFFFF;"
Response.Write " border-right-color: #999999;"
Response.Write " border-bottom-color: #999999;"
Response.Write " border-left-color: #FFFFFF;"
Response.Write "}"
Response.Write " BODY {border: 0; margin: 0; background: buttonface; cursor: default; font-family:宋体; font-size:9pt;}"
Response.Write " BUTTON {width:5em}" & vbCrLf
Response.Write " TABLE {font-family:宋体; font-size:9pt}"
Response.Write " P {text-align:center}" & vbCrLf
Response.Write "-->" & vbCrLf
Response.Write "</style>"
Response.Write "</head>"
Response.Write "<body leftmargin=""0"">"
Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td colspan=""2""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""80"" align=""center"" nowrap>选择目录： </td>"
Response.Write " <td width=""649""><select onChange=""ChangeFolder(this.value);"" id=""FolderSelectList"" style=""width:100%;"" name=""select"">"
Response.Write " <option selected value=""" & CurrPath & """>"
Response.Write CurrPath
Response.Write " </option>"
Response.Write " </select></td>"
Response.Write " <td width=""279"" height=""26"" valign=""middle"">"
Response.Write " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr align=""center"">"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/R.gif"" align=""absmiddle"" onClick=""ChangeViewArea(this);"" id=""Img1"" title=""关闭预览区""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/Back.gif"" width=""21"" height=""22"" align=""absmiddle"" onClick=""frames['FolderList'].OpenParentFolder();"" title=""返回上一级目录""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/AddFolder.gif"" width=""19"" height=""17"" align=""absmiddle"" onClick=""frames['FolderList'].AddFolderOperation();"" title=""添加新目录""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""Folder/Upfiles.gif"" width=""21"" height=""22"" align=""absmiddle"""
Response.Write "onClick=UpFile();"
Response.Write " title=""上传新文件""></td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""70%"" align=""center""> <iframe name=""FolderList"" id=""FolderList"" width=""100%"" height=""290"" frameborder=""1"" src=""FolderFileList.asp?CurrPath=" & CurrPath & """ scrolling=""yes""></iframe>"
Response.Write " </td>"
Response.Write " <td width=""30%"" align=""center"" valign=""middle"" ID=""ViewArea""> <iframe id=""PreviewArea"" scrolling=""yes"" width=""100%"" height=""290"" frameborder=""1"" src=""Preview.asp""></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""35"" colspan=""2""> <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""80"" height=""40""> <div align=""center"">URL地址：</div></td>"
Response.Write " <td><input style=""width:65%"" type=""text"" name=""FileUrl""> <input type=""button"" onClick=""SetFileUrl();"" name=""Submit"" value="" 确 定 "">"
Response.Write " <input onClick=""window.close();"" type=""button"" name=""Submit3"" value="" 取 消 "">"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
Response.Write "<script language=""JavaScript"">"
Response.Write "function ChangeFolder(FolderName)"
Response.Write "{"
Response.Write " frames[""FolderList""].location='FolderFileList.asp?CurrPath='+FolderName;"
Response.Write "}"
Response.Write "function UpFile()"
Response.Write "{"
Response.Write " OpenWindow('Frame.asp?Path='+frames[""FolderList""].CurrPath,400,200,window);"
Response.Write " frames[""FolderList""].location='FolderFileList.asp?CurrPath='+frames[""FolderList""].CurrPath;"
Response.Write "}"
Response.Write "function SetFileUrl()"
Response.Write "{"
Response.Write " if (document.all.FileUrl.value=='') alert('请填写Url地址');"
Response.Write " else"
Response.Write " {"
Response.Write " window.returnValue=document.all.FileUrl.value;"
Response.Write " window.close();"
Response.Write " }"
Response.Write "}"
Response.Write "window.onunload=CheckReturnValue;"
Response.Write "function CheckReturnValue()"
Response.Write "{"
Response.Write " if (typeof(window.returnValue)!='string') window.returnValue='';"
Response.Write "}"
Response.Write "var displayBar=true;"
Response.Write "function ChangeViewArea(obj) {"
Response.Write " if (displayBar) {"
Response.Write " ViewArea.style.display='none';"
Response.Write " displayBar=false;"
Response.Write " obj.src='Folder/L.gif';"
Response.Write " obj.title='打开预览区';"
Response.Write " } else {"
Response.Write " ViewArea.style.display='';"
Response.Write " displayBar=true;"
Response.Write " obj.src='Folder/R.gif';"
Response.Write " obj.title='关闭预览区';"
Response.Write " }"
Response.Write "}"
Response.Write "</script>"
%>